-- background: 2588 from stack: in.0
-- bmap block id: 3145
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on CleanUp ----this XFCN is only useful in Quick Compacter.
  get CUp(the freesize of this stack,the size of this stack)
end CleanUp
on UpdatePrefs
  global PrefsHi
  set cursor to watch
  put the hilite of cd btn id 90 into item 1 of PrefsHi
  put the hilite of cd btn id 91 into item 2 of PrefsHi
  put the hilite of cd btn id 92 into item 3 of PrefsHi
  put the hilite of cd btn id 93 into item 4 of PrefsHi
  put the hilite of cd btn id 94 into item 5 of PrefsHi
  put the hilite of cd btn id 98 into item 6 of PrefsHi
  put the hilite of cd btn id 99 into item 7 of PrefsHi
  put the hilite of cd btn id 100 into item 8 of PrefsHi
  put the hilite of cd btn id 104 into item 9 of PrefsHi
  put the hilite of cd btn id 107 into item 12 of PrefsHi
  put the hilite of cd btn id 115 into item 13 of PrefsHi
  put word 2 of cd fld id 105 into item 10 of PrefsHi
  put word 2 of cd fld id 106 into item 11 of prefshi
  if item 6 of prefshi=true then
    show cd fld "Date"
    show cd fld "Time"
  else
    hide cd fld "Date"
    hide cd fld "Time"
  end if
end UpdatePrefs

on arrowKey direction
  put "Arrow keys are disabled. There are no other cards."
  wait 60 ticks
  put empty into msg
  hide msg
end arrowkey

on Help
  set cursor to watch
  global shs
  put "Help File" into shs
  lock screen
  show cd fld shs
  set hilite of cd btn id 37 to true
  show cd btn id 37
  show cd btn id 83
  Unlock screen with visual effect wipe right slow
end Help



-- part 6 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=483 top=274 right=294 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Home
----- HyperTalk script -----
on mouseUp
  answer "Go Home or to the Finder?" with "Finder" or "Home" or "Cancel"
  if it="Home" then go home
  if it="Finder" then domenu Quit Hypercard
end mouseUp



-- part 8 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=367 top=295 right=339 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 9 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=2 top=295 right=339 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MESSAGES